From: Michał Kondraciuk <k.michal@zoho.com>
Date: Mon, 16 Sep 2019 23:13:08 +0000 (+0200)
Subject: Allow `M-u' to work when editing fields in Customize
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~19^2~1940^2~27
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=90ddad804a34b70af7d849f1fdd1f069a3c30f54;p=emacs.git

Allow `M-u' to work when editing fields in Customize

* lisp/cus-edit.el (custom-notify): Allow more editing commands to
work in the Customize buffers (bug#31205).

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 8a8bad91137..24969633373 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -2212,7 +2212,12 @@ and `face'."
     (unless (eq state 'modified)
       (unless (memq state '(nil unknown hidden))
 	(widget-put widget :custom-state 'modified))
-      (custom-magic-reset widget)
+      ;; Update the status text (usually from "STANDARD" to "EDITED
+      ;; bla bla" in the buffer after the command has run.  Otherwise
+      ;; commands like `M-u' (that work on a region in the buffer)
+      ;; will upcase the wrong part of the buffer, since more text has
+      ;; been inserted before point.
+      (run-with-idle-timer 0.0 nil #'custom-magic-reset widget)
       (apply 'widget-default-notify widget args))))
 
 (defun custom-redraw (widget)